home *** CD-ROM | disk | FTP | other *** search
/ People & Parliament - A …er's Guide to Westminster / People and Parliament - A Stranger's Guide to Westminster (1998)(House of Commons).iso / parl / 8bit80.dir / 00128_Script_128 < prev    next >
Text File  |  1998-03-23  |  1KB  |  50 lines
  1. on mouseUp
  2.   GLOBAL QRESULT,POINTS1,POINTS2,POINTS3
  3.   
  4.   IF QRESULT=3 THEN
  5.     PUPPETSOUND 1, "RIGHT"
  6.     SET POINTS2=POINTS2+2
  7.     SET POINTS1=POINTS1-1
  8.     SET POINTS3=POINTS3-1
  9.   ELSE
  10.     PUPPETSOUND 1, "WRONG"
  11.     SET POINTS2=POINTS2-2
  12.     SET POINTS1=POINTS1+1
  13.     SET POINTS3=POINTS3+1
  14.     showrightanswer
  15.   END IF
  16.   clearpuppets
  17.   GO TO THE FRAME+1
  18. end
  19.  
  20. on showrightanswer
  21.   GLOBAL QRESULT
  22.   IF QRESULT=1 THEN
  23.     set the cursor of sprite 4 to -1
  24.     set the visible of sprite 4 to false
  25.     set the visible of sprite 24 to false
  26.     set the ink of sprite 3 to 0
  27.     set the cursor of sprite 5 to -1
  28.     set the visible of sprite 5 to false
  29.     set the visible of sprite 25 to false
  30.     updatestage
  31.     repeat while soundbusy(1)=TRUE
  32.       nothing
  33.     end repeat
  34.   else
  35.     set the cursor of sprite 3 to -1
  36.     set the visible of sprite 3 to false
  37.     set the visible of sprite 23 to false
  38.     set the ink of sprite 4 to 0
  39.     set the cursor of sprite 5 to -1
  40.     set the visible of sprite 5 to false
  41.     set the visible of sprite 25 to false
  42.     
  43.     updatestage
  44.     repeat while soundbusy(1)=TRUE
  45.       nothing
  46.     end repeat
  47.     
  48.   end if
  49.   
  50. end